From 9f67259fe631d4cfa59b76bbcfa1584843c58dfc Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Thu, 17 May 2001 13:26:22 +0000 Subject: [PATCH] (jit-lock-after-change): Check the font-lock-multiline text-property after moving to the beginning of line and regardless of the value of font-lock-multiline. --- lisp/jit-lock.el | 15 +++++++-------- 1 file changed, 7 insertions(+), 8 deletions(-) diff --git a/lisp/jit-lock.el b/lisp/jit-lock.el index 6b142997f5c..d406189f684 100644 --- a/lisp/jit-lock.el +++ b/lisp/jit-lock.el @@ -426,14 +426,6 @@ will take place when text is fontified stealthily." (when jit-lock-mode (save-excursion (with-buffer-prepared-for-jit-lock - ;; If we're in text that matches a multi-line font-lock pattern, - ;; make sure the whole text will be redisplayed. - (when (and font-lock-multiline - (get-text-property start 'font-lock-multiline)) - (setq start (or (previous-single-property-change - start 'font-lock-multiline) - (point-min)))) - ;; It's important that the `fontified' property be set from the ;; beginning of the line, else font-lock will properly change the ;; text's face, but the display will have been done already and will @@ -441,6 +433,13 @@ will take place when text is fontified stealthily." (goto-char start) (setq start (line-beginning-position)) + ;; If we're in text that matches a multi-line font-lock pattern, + ;; make sure the whole text will be redisplayed. + (when (get-text-property start 'font-lock-multiline) + (setq start (or (previous-single-property-change + start 'font-lock-multiline) + (point-min)))) + ;; Make sure we change at least one char (in case of deletions). (setq end (min (max end (1+ start)) (point-max))) ;; Request refontification. -- 2.30.2